inherited rstAccpoints: TrstAccpoints
  Left = 392
  Top = 290
  Height = 636
  Caption = #1058#1086#1095#1082#1080' '#1080#1085#1089#1090#1088#1091#1084#1077#1085#1090#1072#1083#1100#1085#1086#1075#1086' '#1091#1095#1077#1090#1072
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Height = 558
  end
  inherited pStatusBar: TStatusBar
    Top = 583
  end
  inherited Panel1: TPanel
    Height = 558
    inherited TfraAddress1: TfraAddress
      Top = 64
      Height = 217
      inherited SearchBox: TGroupBox
        Height = 217
        inherited Label6: TLabel
          Left = 13
          Alignment = taRightJustify
        end
        inherited Label1: TLabel
          Left = 31
          Alignment = taRightJustify
        end
        inherited Label2: TLabel
          Left = 50
          Alignment = taRightJustify
        end
        inherited Label3: TLabel
          Left = 59
          Alignment = taRightJustify
        end
        inherited Label4: TLabel
          Left = 34
          Alignment = taRightJustify
        end
        inherited Label5: TLabel
          Left = 55
          Alignment = taRightJustify
        end
        inherited FindBtn: TButton
          Top = 186
          Caption = #1055#1086#1080#1089#1082
        end
        inherited ClearBtn: TButton
          Top = 186
          OnClick = TfraAddress1ClearBtnClick
        end
        inherited AddBtn: TButton
          Top = 186
        end
        inherited TownBox: TDBLookupComboboxEh
          Left = 90
          Width = 160
        end
        inherited StreetBox: TDBLookupComboboxEh
          Left = 90
          Width = 160
        end
        inherited HouseBox: TDBLookupComboboxEh
          Left = 90
          Width = 160
        end
        inherited AppartBox: TDBLookupComboboxEh
          Left = 90
          Width = 160
        end
        inherited NLSEdit: TDBEditEh
          Left = 90
          Width = 160
        end
        inherited NameEdit: TDBEditEh
          Left = 90
          Width = 160
        end
      end
      inherited QStreets: TpFIBDataSet
        Transaction = MAINDM.pMainTransaction
        Database = MAINDM.pMainDatabase
        UpdateTransaction = MAINDM.pMainTransaction
      end
      inherited QHouses: TpFIBDataSet
        Transaction = MAINDM.pMainTransaction
        Database = MAINDM.pMainDatabase
        UpdateTransaction = MAINDM.pMainTransaction
      end
      inherited QTowns: TpFIBDataSet
        Transaction = MAINDM.pMainTransaction
        Database = MAINDM.pMainDatabase
        UpdateTransaction = MAINDM.pMainTransaction
      end
    end
    inherited GroupBox1: TGroupBox
      Height = 64
      object Label1: TLabel
        Left = 32
        Top = 18
        Width = 50
        Height = 13
        Alignment = taRightJustify
        Caption = #1053#1072#1079#1074#1072#1085#1080#1077
      end
      object Label2: TLabel
        Left = 63
        Top = 42
        Width = 19
        Height = 13
        Alignment = taRightJustify
        Caption = #1058#1080#1087
      end
      object dbeMaName: TDBEditEh
        Left = 90
        Top = 14
        Width = 160
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        TabOrder = 0
        Visible = True
      end
      object cbMaType: TDBLookupComboboxEh
        Left = 90
        Top = 38
        Width = 160
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        KeyField = 'ID'
        ListField = 'ACCTYPE'
        ListFieldIndex = -1
        ListSource = dscTypes
        TabOrder = 1
        Visible = True
      end
    end
    inherited TfraSubstanceInfo1: TfraSubstanceInfo
      Top = 281
      Height = 277
      inherited TopPanel: TPanel
        Height = 0
      end
      inherited BottomPanel: TPanel
        Top = 277
        Height = 0
      end
      inherited PageControl: TPageControl
        Top = 0
        Height = 277
        inherited TSInfo: TTabSheet
          inherited InfoGrid: TDBGridEh
            Height = 246
          end
        end
      end
      inherited QSubstanceInfo: TpFIBDataSet
        SelectSQL.Strings = (
          'SELECT'
          '    RFIELD_NAME as name,'
          '    RFIELD_VALUE as val'
          'FROM'
          'PROC_ACCPOINT_GET_PROP_LIST(:PACCPOINT_ID)')
      end
    end
    object cbClosedLS: TDBCheckBoxEh
      Left = 90
      Top = 231
      Width = 97
      Height = 17
      AlwaysShowBorder = True
      Caption = #1047#1072#1082#1088#1099#1090#1099#1077' '#1051#1057
      Flat = True
      TabOrder = 3
      ValueChecked = '0'
      ValueUnchecked = '1'
    end
  end
  inherited Panel2: TPanel
    Height = 558
    inherited Splitter2: TSplitter
      Top = 394
    end
    inherited GroupBox2: TGroupBox
      Top = 399
      Height = 159
      Caption = ' '#1059#1089#1090#1072#1085#1086#1074#1083#1077#1085#1085#1099#1077' '#1087#1088#1080#1073#1086#1088#1099' '#1091#1095#1077#1090#1072' '
      inherited DetailGrid: TDBGridEh
        Height = 142
        DataSource = dscDetail
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'METER_NUM'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'MTYPE'
            Footers = <>
            Width = 117
          end
          item
            EditButtons = <>
            FieldName = 'IND'
            Footers = <>
            Width = 96
          end
          item
            EditButtons = <>
            FieldName = 'INDDATE'
            Footers = <>
            Width = 97
          end>
      end
    end
    inherited Panel3: TPanel
      Height = 394
      inherited dbgRefer: TDBGridEh
        Height = 394
        Columns = <
          item
            EditButtons = <>
            FieldName = 'RID'
            Footers = <>
            Width = 52
          end
          item
            EditButtons = <>
            FieldName = 'RMANAME'
            Footers = <>
            Width = 113
          end
          item
            EditButtons = <>
            FieldName = 'RACCTYPE'
            Footers = <>
            Width = 84
          end
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'RPARENT_EXISTS'
            Footers = <>
          end
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'RHEATCOUNTER'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RGROUP_ACC'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RNLS'
            Footers = <>
            Width = 82
          end
          item
            EditButtons = <>
            FieldName = 'RTOWN'
            Footers = <>
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'RSTREET_NAME'
            Footers = <>
            Width = 121
          end
          item
            EditButtons = <>
            FieldName = 'RHOUSE'
            Footers = <>
            Width = 42
          end
          item
            EditButtons = <>
            FieldName = 'RCORPS'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RAPPARTS'
            Footers = <>
            Width = 30
          end
          item
            EditButtons = <>
            FieldName = 'RLETTER'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RNAME'
            Footers = <>
            Width = 79
          end
          item
            EditButtons = <>
            FieldName = 'RBDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'REDATE'
            Footers = <>
          end>
      end
    end
  end
  inherited dsRefer: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      'rid,'
      'rmaname,'
      'rbdate,'
      'redate,'
      'rparent_exists,'
      'racctype,'
      'rheatcounter,'
      'rgroup_acc,'
      'rnls,'
      'rtown,'
      'rstreet_name,'
      'rhouse,'
      'rcorps,'
      'rapparts,'
      'rletter,'
      'rname'
      'from proc_v_accpoints ('
      ':pmaname,'
      ':ptype,'
      ':ptown_id,'
      ':pstreet_id,'
      ':pbuilding_id,'
      ':papparts,'
      ':pletter,'
      ':pnls,'
      ':pname,'
      ':pactive,'
      ':addparam)')
    AfterScroll = dsReferAfterScroll
    Database = MAINDM.pMainDatabase
    object dsReferRID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'RID'
    end
    object dsReferRMANAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'RMANAME'
      EmptyStrToNull = True
    end
    object dsReferRACCTYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087
      FieldName = 'RACCTYPE'
      Size = 60
      EmptyStrToNull = True
    end
    object dsReferRPARENT_EXISTS: TFIBIntegerField
      DisplayLabel = #1059#1079#1077#1083
      FieldName = 'RPARENT_EXISTS'
    end
    object dsReferRHEATCOUNTER: TFIBSmallIntField
      DisplayLabel = #1058#1077#1087#1083#1086#1074#1099#1095'.'
      FieldName = 'RHEATCOUNTER'
    end
    object dsReferRGROUP_ACC: TFIBSmallIntField
      DisplayLabel = #1054#1073#1097#1072#1103
      FieldName = 'RGROUP_ACC'
    end
    object dsReferRNLS: TFIBStringField
      DisplayLabel = #1051#1057
      FieldName = 'RNLS'
      EmptyStrToNull = True
    end
    object dsReferRTOWN: TFIBStringField
      DisplayLabel = #1053#1072#1089'.'#1087#1091#1085#1082#1090
      FieldName = 'RTOWN'
      Size = 60
      EmptyStrToNull = True
    end
    object dsReferRSTREET_NAME: TFIBStringField
      DisplayLabel = #1059#1083#1080#1094#1072
      FieldName = 'RSTREET_NAME'
      Size = 255
      EmptyStrToNull = True
    end
    object dsReferRHOUSE: TFIBStringField
      DisplayLabel = #1044#1086#1084
      FieldName = 'RHOUSE'
      Size = 10
      EmptyStrToNull = True
    end
    object dsReferRCORPS: TFIBStringField
      DisplayLabel = #1050#1086#1088#1087'.'
      FieldName = 'RCORPS'
      Size = 3
      EmptyStrToNull = True
    end
    object dsReferRAPPARTS: TFIBIntegerField
      DisplayLabel = #1050#1074
      FieldName = 'RAPPARTS'
    end
    object dsReferRLETTER: TFIBStringField
      DisplayLabel = #1051#1080#1090#1077#1088#1072
      FieldName = 'RLETTER'
      Size = 3
      EmptyStrToNull = True
    end
    object dsReferRNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054
      FieldName = 'RNAME'
      Size = 255
      EmptyStrToNull = True
    end
    object dsReferREDATE: TFIBDateField
      DisplayLabel = #1050#1086#1085#1077#1094
      FieldName = 'REDATE'
    end
    object dsReferRBDATE: TFIBDateField
      DisplayLabel = #1053#1072#1095#1072#1083#1086
      FieldName = 'RBDATE'
    end
  end
  inherited DetailTimer: TTimer
    Interval = 500
    OnTimer = DetailTimerTimer
  end
  object dsDetail: TpFIBDataSet
    SelectSQL.Strings = (
      'select m.id, m.meter_num, mt.name as mtype, m.name,'
      '(select rph from proc_meter_get_ind(m.id, current_date)) as ind,'
      
        '(select rdate from proc_meter_get_ind(m.id, current_date)) as in' +
        'ddate'
      'from meters m'
      '  join meter_types mt on mt.id = m.meter_type'
      'where m.accpoint_id = :paccpoint_id')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 76
    Top = 508
    object dsDetailID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsDetailMETER_NUM: TFIBStringField
      DisplayLabel = #8470#1087#1088#1080#1073#1086#1088#1072
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object dsDetailMTYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1087#1088#1080#1073#1086#1088#1072
      FieldName = 'MTYPE'
      Size = 16
      EmptyStrToNull = True
    end
    object dsDetailIND: TFIBBCDField
      DisplayLabel = #1058#1077#1082#1091#1097'.'#1087#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'IND'
      Size = 3
      RoundByScale = True
    end
    object dsDetailINDDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      FieldName = 'INDDATE'
    end
  end
  object dscDetail: TDataSource
    DataSet = dsDetail
    Left = 108
    Top = 508
  end
  object dsTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select '
      '  id,'
      '  acctype'
      'from m_accpoint_type')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 590
    Top = 46
    object dsTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsTypesACCTYPE: TFIBStringField
      FieldName = 'ACCTYPE'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dscTypes: TDataSource
    DataSet = dsTypes
    Left = 622
    Top = 46
  end
end
